home *** CD-ROM | disk | FTP | other *** search
/ BlastDOS / [DOS_Application]_BIT_Software_-_BitCom_3.58c_-_Distribution_Disks.zip / SENDFILE.ACT < prev    next >
Text File  |  1990-06-01  |  741b  |  19 lines
  1. { This action file is called by HANDYKEY.ACT.   }
  2. { It can also be invoked directly by putting the file name}
  3. { SENDFILE.ACT into the Communications Paramenter Menu. }
  4. { This action file first ask the host the file name to send }
  5. { If the requested file name exists, then the file is sent  }
  6. { in ASCII modem. Otherwise, a message is sent to the host. }
  7.  
  8. "What file would you like?"   {ask host for file name }
  9. @a=getline                    {get the name into @a }
  10. @b=EXIST(@a)                  {if the file exist, @b is  non zero }
  11. "$0d$0a"
  12. if (@b = 0 ) goto :badfile
  13. if (sendfile(@a, "ASCII") = -1) "Cannot open file$0a$0d";
  14. TYPECR("End of send file")
  15. exit
  16.  
  17. :badfile
  18. "File Not Found$0d$0a";  { tell host: file not found}
  19.